home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Sample Code / Snippets / Files / PBDTGetAppl / Source / GetCreator.c < prev    next >
Encoding:
Text File  |  1992-10-07  |  817 b   |  47 lines  |  [TEXT/KAHL]
  1. void GetTextItem(DialogPtr theDialog, short itemNumber, Str255 text)
  2. {
  3.     Handle    iHandle;
  4.     Rect    box;
  5.     int        iType;
  6.     
  7.     GetDItem(theDialog,itemNumber,&iType,&iHandle,&box);
  8.     GetIText(iHandle,text);
  9. }
  10.  
  11.  
  12. #define ASK_ALERT    500
  13. #define OK_BTN        1
  14. #define CANCEL_BTN    2
  15. #define CREATOR_STR    3
  16.  
  17. short GetCreator(char creator[4])
  18. {
  19.  
  20.     DialogPtr    dp;
  21.     short        item;
  22.     Str255        createStr;
  23.     short        i;
  24.     
  25.     dp = GetNewDialog(ASK_ALERT,nil,(WindowPtr)-1);
  26.     
  27.     ModalDialog(nil,&item);
  28.     
  29.     if(item == CANCEL_BTN) goto bail;
  30.     
  31.     GetTextItem(dp,CREATOR_STR,createStr);
  32.     if(createStr[0] < 4) {
  33.         Msg("\pYou Must enter at least 4 characters.");
  34.         goto bail;
  35.     }
  36.     
  37.     for(i = 0; i < 4; i++)
  38.         creator[i] = createStr[i + 1];
  39.     
  40. bail:
  41.     DisposeDialog(dp);
  42.     /* Do three events to update windows behind */
  43.     MainEvent();
  44.     MainEvent();
  45.     MainEvent();
  46.     return item;
  47. }